perm filename QQ[CRE,BGB] blob sn#041556 filedate 1973-05-16 generic text, type T, neo UTF8
00300	(DEFPROP INCRE 
00400	 (LAMBDA(Q)
00500	  (PROG NIL
00600		(MKBINPUT)
00700		(BINMKF Q)
00800		(SETQ BEGCRE BPORG)
00900		(SETQ ENDCRE (BINPUT BPORG BPEND))
01000		(AND(NULL ENDCRE) 
01050		    (RETURN (PROG2 (PRINT (QUOTE (CRE FILE NOT FOUND))) NIL)))
01100		(AND (GREATERP ENDCRE BPEND)
01200		     (RETURN (PROG2 (PRINT 
01250	(QUOTE (CRE FILE BIGGER THAN BINARY PROGRAM SPACE))) NIL)))
01300		(SETQ BPORG ENDCRE)
01400		(RETURN T))) 
01500	FEXPR)